Option Explicit
'зǼҲ
'TTۭqwqA
Type typKBINPUT
    wVk                 As Integer
    wScan               As Integer
    dwFlags             As Long
    time                As Long
    dwExtraInfo         As Long
    bytUnusedPadding(7) As Byte
End Type

'ۭqJΪۭqwqA
Type typINPUT
    type As Long
    ki As typKBINPUT
End Type

'ΨөwqIxyлPyyЪۭqwqA
Type tagPOINT
    X As Long
    Y As Long
End Type

Public Const GWL_STYLE = -16&           'o
Public Const WS_THICKFRAME = &H40000    'ܧjpiHϥ
                                          'ʮت
Public Const WS_MINIMIZEBOX = &H20000   '㦳̤pƫs
Public Const WS_MAXIMIZEBOX = &H10000   '㦳̤jƫs
Public Const INPUT_KEYBOARD = 1         'Jƥ
Public Const VK_SNAPSHOT = &H2C         'Xh
Public Const VK_LMENU = &HA4&           'X
Public Const KEYEVENTF_KEYUP = &H2      'SendInput()B@

'ΨӨo̫eHandleƫŧi
Declare Function GetForegroundWindow Lib "user32.dll" () As Long

'ΨӨoOWᤩCaptionDHandleƫŧi
Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
    (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

'ΨӨoPTƫŧi
Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" _
    (ByVal myHwnd As Long, ByVal nIndex As Long) As Long

'Ψܧʽ誺ƫŧi
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
    (ByVal myHwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long

'ΨӭsyøCƫŧi
Declare Function DrawMenuBar Lib "user32" (ByVal myHwnd As Long) As Long

'ΨӨo椧Handleƫŧi
Declare Function GetSystemMenu Lib "user32" _
    (ByVal myHwnd As Long, ByVal bRevert As Long) As Long

'Ψӱq椤Rﶵƫŧi
Declare Function DeleteMenu Lib "user32" _
    (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long

'ΨӨoCaptionDƫŧi
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" _
    (ByVal myHwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long

'ΨӨoOW٪ƫŧi
Declare Function GetClassName Lib "user32" Alias "GetClassNameA" _
    (ByVal myHwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long

'ΨӦX֨ϥΪ̿Jƫŧi
Declare Function SendInput Lib "user32.dll" _
    (ByVal nInputs As Long, pInputs As typINPUT, ByVal cbSize As Long) As Long

'ΨӨoЦmƫŧi
Declare Function GetCursorPos Lib "user32.dll" (lpPoint As tagPOINT) As Long

'ΨӨoݮɶƫŧi
Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
